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loop{ 
trait 

if (S==S_PARENT){ 

if (E.iD_type==M_NOTIFY){ 
if(E.iD_addr !=M){ 
assign_P(E.in_addr) ; 
3endTP,M_NEG0TIATE,M); 
trans(S_NEGOTIATING); 

) 

^ 6 1 S 6 

if (E.iD_type==M_FORWARD){ 
ignoreO; 

) 6 1 SC 

if {E.in_type==M_REPORT){ 
if(E.m_addr !=N){ 
a3sign_P(E.Bi_addr) ; 
send(P,M_NEGOTIATE,M); 
tran3(S_NEG0TIATING); 

} 

}else 

if (E.m_type==M^NEGOTIATE){ 

assign_P(decTde(E.m_addr,M) ); 
if{P==M){ 

send(£.iB addr,M_IAH,N}; 
trans(S_NE60TIATING); 

} C 1 S 6 { 

send(E,iD_addr,M_YOOARE); 
send(P,M_JOIN,M); 
send_C(M_FORWARD , P ) ; 
einpty^C( ) ; 
^transrs_CHILD); 

} 6 1 S 6 

if {E.in_type==M_IAM){ 
ignore( ) ; 

} C I S6 

i f ( E , iD_type==M_YOU ARE ) { 
ignore( ) ; 

}6 1 S6 

if (E-iD_tyDe==M_BUSY){ 
ignore( ) ; 

} 6 1 S 6 

i f (E . iB_type==M_ JOI N ) { 
add_C(E.m_addr); 

}6 1 S6 

if (E.m_tyDe=-M_ERROR){ 
ignore( ) ; 

} 6 1 S G 

if (E.ie_type==M_TIMOUT){ 
^ broadcast(M_NOTIFY,M); 

}else 
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[09] 

if (S==S_NBGOTIATING){ 
i f ( E . iD_tyDe==l!_HOT I FY ) { 
ignore( ) ; 

} G 1 S 6 

if (E.m_type==M_FORWADR){ 
if (E.oi_addr==M){ 
assign_P(H); 
trans(S_PAREHT)j 
}else{ 

assi gn_P(E.ni_addr ) ; 
send(P,M_NEGOTIATE,H); 

}else 

if (E.m_type==M_REPORT){ 
ignore( ) ; 

} G 1 SC 

if (E.B_type^=M_NEGOTIATE){ 
if (P==E.in_addr && decide(P.M)=^P){ 
send(E.m_addr,N_YOOARE): 

} 6 1 S C { 

send(E.Bi_addr,M_BUSY); 

} 6 1 S6 

i f ( E . iii_type==M_ I AH ) { 
assign_P(E.B_addr ) ; 
send(P,H_JOIN,H); 
send_C(M_FORWARD, P ) ; 
empty CO; 
transTS_CHILD); 

} 6 i S 6 

i f ( E . Bi_type==ll_YODARE ) { 
assign_P(M) ; 
trans(S_PARENT); 

^ G 1 S 6 

if(E.iB type~lI_BUSY){ 
sendTP,H_NEGOTIATE,M); 

} € 1 S C 

i f ( B . iD_ type==)I_ JO I N ) { 
add_C(E.iB_addr); 

} G 1 S G 

i f ( E . m_type==E_ERROR ) { 
assign_P(M); 
trans (S.PARENT); 

} C 1> S 6 

if (E.p_type==E_TIMEOUT){ 
assign_P(M) ; 
trans (S.PARENT); 

) 

}else 
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if(S==S CBILD){ 

if (E.m_type==E_NOTIFY){ 
if(E.iD addr !=P){ 

sendTP,M_REPORT,E-m_addr); 

} 

} 6 1 S 6 

i f ( E . m.ty pe==E_FORW ARD ) { 
assign_P(E.iB_addr ) ; 
if(P==M)? 

trans (S.PARENT); 

} 0 1 S 6 { 

send(P.M JOIN,M); 

} 

i f ( E . iD_type==M_REPORT ) { 

send( E - m_f orm ,N_FORWARD , P ) ; 

) 6 1 S6 

if(E,oi addr.M_FORWARD,P); 

sendlE . m_f orm , M.FORWARD , P ) ; 
}else 

if (E.Di_tyDe==H.IAM){ 
igiiore( ); 

} G 1 S 6 

if (E.iB_type==M_YOUARE){ 
ignore( ) ; 

} 6 1 S 6 

if(E.in type==M_BUSY){ 
sendTP,M_JOIN,M); 

} G 1 S 6 

if (E.iD_type==M_JOIN){ 

send(£.ia_addr,H_FORWARD,P): 

} 6 1 S6 

i f ( E . m_type==H_ERROR ) { 
assign_P(M) ; 
trans(S_PARENT); 

1 6 1 S G 

if (E.ia_type-=E_TIIIEOUT){ 
broadcast (M_NOTIFY,P); 
trans(S_PARENT); 

1 

} 
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addr<1«a[>D[] 
addr<<SIR>D[] 
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loop{ 

if(M_COPY ^ -y -fe - S L ){ 

if(M_DELETE ^ y -t — A» fj S b fc ) { 

^~yjVti>' addrO* — St S ^T * W f * 

} 

if(a ){ 

if(addr*JC[]C:^S *t«c v^ff SSijeSi-r « ){ 
for(C[]® ±-C of?lRTt:o^^-^:){ 
send(T,N_DELETE,addr) 

} 

} 

for(7^ — :r ;K'3 ® ± T «» fi C o v% T ){ 

for(Ctl® Hlg^rt. D[]t^*tl«tV^^^T;roVAT ){ 
send(T,M_COPY.addr,<ie«>) 

D I J t: T s ji ini -r S 

} 

} 

^ 6 1 S 6 { 

for(7^ — :/;n^cD^T«>f7t:-:>v%-c){ 
if(addr==MS-:>D[]KlPAst5 * V> ){ 
send(P,M_C0PY,H,<f9«>) 

D[]{::P«MSn-r S 

} 
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